home *** CD-ROM | disk | FTP | other *** search
CLISP byte-compiled Lisp program | 1993-06-05 | 13.5 KB | 287 lines |
- (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
- #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP")
- #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
- (MAPCAP MAPLAP)
- )
- #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
- #Y(#:TOP-LEVEL-FORM-4
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DEFVAR
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(DEFVAR
- #137Y(00 01 00 01 00 08 D4 AB 6A 63 D5 88 02 2F 23 94 54 70 95 54 54 1B
- 20 00 14 96 54 54 51 51 14 97 54 54 54 70 AB 86 2D 15 AB 84 63 3A
- C3 14 D8 AD 5A 02 AA 2D 02 19 03 95 54 54 53 1A 5B C1 1A 6D DE DF
- DC B0 73 02 73 02 E0 DC B1 73 02 B0 73 03 73 03 59 01 1A 1F E1 DC
- B0 73 02 E2 DC AF 73 02 73 04 59 01 1A 14 DA DB DC DD AF 73 02 73
- 02 73 02 89 03 4C 00 14 89 03 5D 00 14 DC B0 73 02 73 01 6B 03 20
- 31 02 1F 19 07
- )
- 2. 4. MACRO-CALL-ERROR "~S: non-symbol ~S can't be a variable" DEFVAR
- "~S: the constant ~S must not be redefined to be a variable" PROGN
- PROCLAIM QUOTE SPECIAL UNLESS BOUNDP SET %SET-DOCUMENTATION 'VARIABLE
- ) )
- #Y(#:TOP-LEVEL-FORM-5
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DEFPARAMETER
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(DEFPARAMETER
- #103Y(00 01 00 01 00 08 D4 AB 6A 63 D5 88 02 2F 1A 94 54 70 95 54 54 70
- 96 54 54 54 70 AA 86 2D 0F AA 84 63 1E C3 14 D8 AC 5A 02 AA 2D 02
- 19 03 C1 1A 73 DF DC AF 73 02 E0 DC AF 73 02 73 04 59 01 1A 17 DA
- DB DC DD AE 73 02 73 02 73 02 DE DC AE 73 02 AD 73 03 89 03 5A 00
- 14 DC AF 73 02 73 01 6B 02 20 31 03 1F 19 06
- )
- 3. 4. MACRO-CALL-ERROR "~S: non-symbol ~S can't be a variable"
- DEFPARAMETER "~S: the constant ~S must not be redefined to be a variable"
- PROGN PROCLAIM QUOTE SPECIAL SET %SET-DOCUMENTATION 'VARIABLE
- ) )
- #Y(#:TOP-LEVEL-FORM-6
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DEFCONSTANT
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(DEFCONSTANT
- #131Y(00 01 00 01 00 08 D4 AB 6A 63 D5 88 02 2F 80 59 94 54 70 95 54 54
- 70 96 54 54 54 70 AA 86 2D 80 4D D9 DA DB DC DD AF 73 02 DD AF 73
- 02 73 03 73 03 DE DF DD AF 73 02 73 02 E0 E1 DD B4 73 02 DD B2 73
- 02 E2 DD B4 73 02 73 02 73 05 73 03 E3 DD AF 73 02 AE 73 03 89 04
- 1A 00 14 DD B0 73 02 73 01 6B 02 20 31 04 1F 19 06 AA 2D 02 19 03
- D7 D8 AC 5A 02 E4 DD B0 73 02 E5 DD B0 73 02 73 04 59 01 1A 57
- )
- 3. 4. MACRO-CALL-ERROR "~S: non-symbol ~S can't be a defined constant"
- DEFCONSTANT PROGN EVAL-WHEN (COMPILE) C-PROCLAIM-CONSTANT QUOTE IF
- CONSTANTP WARN "~S redefines the constant ~S. Its old value was ~S."
- SYMBOL-VALUE %PROCLAIM-CONSTANT %SET-DOCUMENTATION 'VARIABLE
- ) )
- #Y(#:TOP-LEVEL-FORM-7 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) AND MACRO
- #Y(AND
- #66Y(00 01 00 01 00 08 8C 02 8A 00 08 92 54 1C 07 5B A9 1A 15 02 19 04 92
- 53 19 04 8B 00 D4 A9 73 02 BF 72 7B 02 16 01 7A 00 92 20 6F 16 01 A8
- 77 CC 00 A8 69 C5 5C AB 2F C5 70 73 02 2F D0 D6 93 55 19 05
- )
- NOT (NIL) COND
- ) )
- #Y(#:TOP-LEVEL-FORM-8 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) OR MACRO
- #Y(OR
- #44Y(00 01 00 01 00 08 8C 02 8A 00 1A 92 54 1C 19 D4 A9 6B 00 17 A8 69 C5
- 5C AB 2F C5 70 73 02 2F D0 D5 93 55 19 05 00 19 04 92 53 19 04
- )
- #.#'LIST COND
- ) )
- #Y(#:TOP-LEVEL-FORM-9 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) PROG1 MACRO
- #Y(PROG1
- #48Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 1D 94 54 70 95 54 71 36 01 6A
- A4 D6 A9 AC 73 02 73 01 AB AB 73 01 6B 02 20 31 02 1F 19 06 AA 2D 01
- 19 03
- )
- 2. MACRO-CALL-ERROR LET
- ) )
- #Y(#:TOP-LEVEL-FORM-10 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) PROG2 MACRO
- #Y(PROG2
- #57Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 26 94 54 70 95 54 54 70 96 54
- 54 71 36 01 6A A4 D6 AC D7 AB AE 73 02 73 01 AD AD 73 01 6B 02 20 6B
- 02 1F 59 03 19 07 AA 2D 01 19 03
- )
- 3. MACRO-CALL-ERROR PROGN LET
- ) )
- #Y(#:TOP-LEVEL-FORM-11 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) WHEN MACRO
- #Y(WHEN
- #34Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 0F 94 54 70 95 54 71 D6 AA D7
- 95 72 59 03 19 05 AA 2D 01 19 03
- )
- 2. MACRO-CALL-ERROR IF PROGN
- ) )
- #Y(#:TOP-LEVEL-FORM-12 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) UNLESS
- MACRO
- #Y(UNLESS
- #37Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 12 94 54 70 95 54 71 D6 D7 AB
- 73 02 D8 95 72 59 03 19 05 AA 2D 01 19 03
- )
- 2. MACRO-CALL-ERROR IF NOT PROGN
- ) )
- #Y(#:TOP-LEVEL-FORM-13
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) RETURN
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(RETURN
- #29Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2E 0A 94 54 70 D6 5B AA 59 03 19
- 04 AA 2D 01 19 03
- )
- 2. MACRO-CALL-ERROR RETURN-FROM
- ) )
- #Y(#:TOP-LEVEL-FORM-14
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) LOOP
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(LOOP
- #33Y(00 01 00 01 00 08 8C 02 36 01 6A A4 D4 5B D5 AB AD D6 AE 73 02 73 01
- 6B 02 20 6B 02 1F 59 03 19 05
- )
- BLOCK TAGBODY GO
- ) )
- #Y(#:TOP-LEVEL-FORM-15 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- DO/DO*-EXPAND REMOVE-OLD-DEFINITIONS
- #Y(DO/DO*-EXPAND
- #155Y(00 07 00 00 00 00 98 1F 35 01 02 36 01 6A A4 36 01 6A A4 B1 5B B2
- 2F 64 3E 03 8A 01 06 D5 94 72 59 01 EB A0 1F 3B 8B 0E 7A 0F 92 1F
- 15 92 54 1F 14 92 54 54 20 13 92 14 7B 07 16 01 1A 65 D4 AC 5A 01
- 92 1A 72 92 53 1A 6E 8B 00 93 54 70 73 02 7B 07 92 54 54 70 8B 01
- B0 79 02 1F 06 16 01 1A 42 D6 5B B3 B1 6A 65 AD D7 B2 D8 8B 15 D9
- B5 73 02 73 03 B2 B9 B7 30 65 72 D9 B7 73 02 B6 DA 5B DB 04 1C 54
- 72 73 03 73 04 6B 02 20 6B 03 1F 73 01 6B 02 20 6B 02 1F 59 03 19
- 0F
- )
- "exit clause in ~S must be a list" DECLARE BLOCK TAGBODY IF GO
- RETURN-FROM PROGN
- ) )
- #Y(#:TOP-LEVEL-FORM-16 #11Y(00 00 00 00 00 01 D4 2F 58 19 01) DO)
- #Y(#:TOP-LEVEL-FORM-17
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DO
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(DO
- #44Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 17 94 54 70 95 54 54 70
- 96 54 54 71 AA AA AA AF D6 D7 D8 2B 07 05 19 06 AA 2D 01 19 03
- )
- 3. MACRO-CALL-ERROR DO LET PSETQ DO/DO*-EXPAND
- ) )
- #Y(#:TOP-LEVEL-FORM-18
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DO*
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(DO*
- #44Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 17 94 54 70 95 54 54 70
- 96 54 54 71 AA AA AA AF D6 D7 D8 2B 07 05 19 06 AA 2D 01 19 03
- )
- 3. MACRO-CALL-ERROR DO* LET* SETQ DO/DO*-EXPAND
- ) )
- #Y(#:TOP-LEVEL-FORM-19
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DOLIST
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(DOLIST
- #130Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 62 94 54 53 70 95
- 54 53 54 70 96 54 53 54 54 70 97 54 71 A8 5B AF 2F 64 3E 02 36 01
- 6A A4 D6 A9 AF D7 AC 73 02 73 03 B0 C2 72 73 02 D9 AB 73 02 AF 83
- 63 34 DA B2 C5 72 73 01 89 06 2E 00 14 B4 B3 73 02 6B 02 20 31 02
- 1F 14 73 02 DC DD AD 73 02 AE 6B 02 1F DE B3 DF AF 73 02 73 03 AF
- 31 05 1F 19 0A AA 2D 01 19 03 99 1A 5E DC 99 72 59 01 1A 4C
- )
- 2. MACRO-CALL-ERROR DO* CDR (NIL) ENDP LET (NIL) DECLARE LIST SETQ CAR
- ) )
- #Y(#:TOP-LEVEL-FORM-20 #11Y(00 00 00 00 00 01 D4 2F 58 19 01) DOTIMES)
- #Y(#:TOP-LEVEL-FORM-21
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DOTIMES
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(DOTIMES
- #126Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 4B 94 54 53 70 95
- 54 53 54 70 96 54 53 54 54 70 97 54 71 A8 5B AF 2F 64 3E 02 8A 00
- 06 D6 93 72 59 01 EA AC 83 63 2A 36 01 6A A4 D7 AF D8 D9 B2 73 02
- 73 03 AA B0 73 02 73 02 DA B1 AC 73 03 AF 73 02 AC AE 6B 02 20 31
- 03 1F 19 0A AA 2D 01 19 03 D7 AE D8 D9 B1 73 02 73 03 73 01 DA B0
- B0 73 03 AE 73 02 AB AD 6B 02 20 31 03 1F 19 09
- )
- 2. MACRO-CALL-ERROR DECLARE DO 0. 1+ >=
- ) )
- #Y(#:TOP-LEVEL-FORM-22 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) PSETQ MACRO
- #Y(PSETQ
- #66Y(00 01 00 01 00 08 8C 02 01 02 AA 8A 00 21 92 54 1C 2B 36 01 6A A4 D6
- 8B 02 AA 73 03 7B 03 A8 94 54 70 73 02 7B 02 16 01 92 54 54 EA 89 00
- 5F 5B 7B 02 D7 AA 6A 65 AC 30 65 55 55 19 07 D4 D5 B0 5A 02
- )
- "~S called with an odd number of arguments: ~S" PSETQ SETQ LET
- ) )
- #Y(#:TOP-LEVEL-FORM-23 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
- MULTIPLE-VALUE-LIST MACRO
- #Y(MULTIPLE-VALUE-LIST
- #29Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2C 0A 94 54 70 D6 D7 AA 59 03 19
- 04 AA 2D 01 19 03
- )
- 2. MACRO-CALL-ERROR MULTIPLE-VALUE-CALL #'LIST
- ) )
- #Y(#:TOP-LEVEL-FORM-24 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
- MULTIPLE-VALUE-BIND MACRO
- #Y(MULTIPLE-VALUE-BIND
- #77Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 14 94 54 70 95 54 54 70 96 54
- 54 71 36 01 6A A4 5B AC 5B 1A 13 AA 2D 01 19 03 7E 01 00 14 D6 AD 73
- 02 73 02 7B 02 7A 01 A9 84 B6 6E 16 02 D7 AA D8 AE 73 02 73 02 AA 30
- 65 72 AC 31 02 1F 19 08
- )
- 3. MACRO-CALL-ERROR POP LET* MULTIPLE-VALUE-LIST
- ) )
- #Y(#:TOP-LEVEL-FORM-25 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
- MULTIPLE-VALUE-SETQ MACRO
- #Y(MULTIPLE-VALUE-SETQ
- #83Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2C 10 94 54 70 95 54 54 70 36 01
- 6A A4 5B AB 5B 1A 1C AA 2D 01 19 03 DA AB 6A 65 59 02 1A 23 7E 01 00
- D6 A9 D7 AE 73 02 73 03 7B 02 7A 01 A9 84 B6 6D 16 02 D8 AA D9 AD 73
- 02 73 02 73 01 89 02 56 00 14 59 03 19 07
- )
- 3. MACRO-CALL-ERROR SETQ POP LET* MULTIPLE-VALUE-LIST PROG1
- ) )
- #Y(#:TOP-LEVEL-FORM-26
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) LOCALLY
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(LOCALLY #16Y(00 01 00 01 00 08 8C 02 D4 5B AA 31 02 1F 19 04) LET)
- )
- #Y(#:TOP-LEVEL-FORM-27
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) CASE
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(CASE
- #106Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 80 40 94 54 70 95 54 71 36
- 01 6A A4 D6 A9 AC 73 02 73 01 D7 5B AD 92 1F 38 8B 00 92 1F 29 8B
- 00 A8 02 21 27 A8 23 06 23 A8 85 34 22 C7 14 B0 DC AB 73 02 59 03
- 14 94 54 55 EA 7B 02 16 01 7A 00 1A 54 AA 2D 01 19 03 D8 D9 5A 01
- 02 1A 67 C5 1A 5C 16 01 A8 2F CC 16 01 72 59 03 19 06
- )
- 2. MACRO-CALL-ERROR LET COND "~S: missing key list" CASE OTHERWISE MEMBER
- QUOTE EQL
- ) )
- #Y(#:TOP-LEVEL-FORM-28
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) PROG
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(PROG
- #63Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 2A 94 54 70 95 54 71 A8
- 5B AD 2F 64 3E 02 8A 00 06 D6 93 72 59 01 EA D7 5B D8 AE AC D9 99 72
- 73 01 6B 02 20 6B 02 1F 59 03 19 07 AA 2D 01 19 03
- )
- 2. MACRO-CALL-ERROR DECLARE BLOCK LET TAGBODY
- ) )
- #Y(#:TOP-LEVEL-FORM-29
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) PROG*
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(PROG*
- #63Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 2A 94 54 70 95 54 71 A8
- 5B AD 2F 64 3E 02 8A 00 06 D6 93 72 59 01 EA D7 5B D8 AE AC D9 99 72
- 73 01 6B 02 20 6B 02 1F 59 03 19 07 AA 2D 01 19 03
- )
- 2. MACRO-CALL-ERROR DECLARE BLOCK LET* TAGBODY
- ) )
- #Y(#:TOP-LEVEL-FORM-30 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) COND MACRO
- #Y(COND
- #33Y(00 01 00 01 00 08 8C 02 36 01 6A A4 A9 A9 2E 00 3E 02 89 00 03 93 19
- 07 D5 AB 73 01 AB 59 03 19 07
- )
- IFIFY LET
- ) )
- #Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- IFIFY REMOVE-OLD-DEFINITIONS
- #Y(IFIFY
- #170Y(00 02 00 00 00 03 89 02 80 5F 01 02 3C 02 19 03 D4 AB 5A 01 D5 8B
- 03 5A 01 D6 97 53 54 55 1A 3D 96 53 54 54 1B 73 96 53 54 53 1A 31
- 96 53 70 83 60 6E 93 1A 80 5E D6 99 53 54 55 1A 80 52 96 53 70 83
- 63 68 D7 97 53 70 98 53 54 54 1B 68 98 53 54 53 1A 3C 96 53 70 84
- 60 08 96 53 53 14 00 1A 80 43 93 1A 2F 8A 02 FF A1 94 1F FF A3 94
- 53 1F FF A2 8C 02 AA 26 6E 3E 02 96 53 54 1B 40 96 53 70 83 63 50
- 96 53 53 20 0F D7 97 53 70 98 53 53 14 AC 59 04 14 93 1A 0D D7 D8
- AD 99 53 70 73 03 AD AC 73 04 02 14 3C 02 19 05
- )
- "Not a list of COND clauses: ~S"
- "The atom ~S must not be used as a COND clause." PROGN IF SETQ
- ) )
- #Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- MAPCAP REMOVE-OLD-DEFINITIONS
- #Y(MAPCAP
- #60Y(00 01 00 00 01 17 5B AB 5B AC 1A 22 16 01 A8 2F CC 16 01 6F 00 6A 64
- A9 79 02 21 00 1A 69 8B 00 8B 00 7A 01 AA AA 2F D1 62 00 7B 01 7A 00
- 92 1F 5B 92 53 20 69 16 03 A8 2F CC 19 04
- ) ) )
- #Y(#:TOP-LEVEL-FORM-33 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- MAPLAP REMOVE-OLD-DEFINITIONS
- #Y(MAPLAP
- #56Y(00 01 00 00 01 17 5B AB 5B AC 1A 1E 16 01 A8 2F CC 16 01 6F 00 6A 64
- A9 79 02 21 00 1A 69 8B 00 A9 94 53 71 2F D1 7B 01 7A 00 92 1F 5F 92
- 53 20 6D 16 03 A8 2F CC 19 04
- ) ) )